home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 007 / tutil.arc / WINDEMO.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1985-08-22  |  830 b   |  48 lines

  1. { Demonstration for removable windo package}
  2.  
  3.  {$IWINDOW.INC}
  4.  
  5. var
  6.   i: integer;
  7.  
  8. begin { Main }
  9.   initwin;
  10.   writeln('Now and every time the action stops.');
  11.   writeln('press ENTER to continue');
  12.   readln;
  13.   clrscr;
  14.   for i:= 1 to 25 do writeln(' This is the original screen');
  15.  
  16.   mkwin(3,3,50,18);
  17.   for i := 1 to 20 do writeln('Line ',i:2,' of the first window...');
  18.   readln;
  19.  
  20.   mkwin(10,5,70,20);
  21.   for i := 1 to 20 do writeln('Line ',i:2,' of window Two...');
  22.   readln;
  23.  
  24.   mkwin(15,15,45,23);
  25.   for i := 1 to 20 do writeln('Line ',i:2,' of window Three...');
  26.   readln;
  27.   clrscr;
  28.   readln;
  29.  
  30.   mkwin(55,10,79,25);
  31.   for i := 1 to 20 do writeln('Line ',i:2,',window Four');
  32.   readln;
  33.  
  34.   rmwin;
  35.   readln;
  36.  
  37.   rmwin;
  38.   readln;
  39.  
  40.   rmwin;
  41.   readln;
  42.  
  43.   rmwin;
  44.   readln;
  45.  
  46.   rmwin;
  47.  
  48. end.